home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok46.lha / Module / Graphik.def < prev    next >
Text File  |  1993-08-15  |  2KB  |  62 lines
  1. (*
  2.  * -------------------------------------------------------------------------
  3.  *
  4.  *    :Program.    Graphik.def
  5.  *    :Contents.    Minimale Graphikroutinen auf bis zu 5 Screens
  6.  *    :Author.    Reiner Nix
  7.  *    :Address.    Geranienhof 2, 5000 Köln 71 Seeberg
  8.  *    :Copyright.    Public Domain
  9.  *    :Language.    Modula-2
  10.  *    :Translator.    M2Amiga A-L V3.3d
  11.  *    :History.    V1.0    21.11.90
  12.  *
  13.  * -------------------------------------------------------------------------
  14.  *)
  15. DEFINITION MODULE Graphik;
  16.  
  17. (* $R- Bereichskontrolle aus   *)
  18. (* $V- Überlaufkontrolle aus   *)
  19. (* $S- Stackkontrolle aus      *)
  20.  
  21.  
  22. CONST     maxGraphik            =   5;
  23.           maxRegister           =  32;
  24.           xMax                  = 640;
  25.           yMax                  = 256;
  26.  
  27. TYPE      GraphikBereich        = [1..maxGraphik];
  28.           RegisterBereich       = [0..maxRegister-1];
  29.           xBereich              = INTEGER[0..xMax-1];
  30.           yBereich              = INTEGER[0..yMax-1];
  31.  
  32.  
  33. PROCEDURE GraphikNachVorne      (n              :GraphikBereich);
  34. PROCEDURE GraphikNachHinten     (n              :GraphikBereich);
  35.  
  36. PROCEDURE BenutzeGraphik        (n              :GraphikBereich);
  37. PROCEDURE LoescheGraphik        (n              :GraphikBereich);
  38.  
  39. PROCEDURE BenutzeFarbe          (n              :RegisterBereich);
  40. PROCEDURE GraphikFarbe          (n              :RegisterBereich;
  41.                                  Farbe          :CARDINAL);
  42.  
  43.  
  44. PROCEDURE ZeichnePunkt          (x              :xBereich;
  45.                                  y              :yBereich);
  46.  
  47. PROCEDURE ZeichneLinie          (x1             :xBereich;
  48.                                  y1             :yBereich;
  49.                                  x2             :xBereich;
  50.                                  y2             :yBereich);
  51.  
  52. PROCEDURE ZeichneRechteck       (x1             :xBereich;
  53.                                  y1             :yBereich;
  54.                                  x2             :xBereich;
  55.                                  y2             :yBereich);
  56.  
  57. PROCEDURE SchreibeSatz          (x              :xBereich;
  58.                                  y              :yBereich;
  59.                                  Satz           :ARRAY OF CHAR);
  60.  
  61. END Graphik.
  62.